﻿Imports DAO
Imports DTO
Public Class GiaoVienBUS

    ''' <summary>
    ''' Xóa 1 giáo viên
    ''' </summary>
    ''' <param name="dto">Mã giáo viên</param>
    ''' <remarks></remarks>
    Public Sub XoaGV(ByVal dto As GiaoVienDTO)
        Dim dao As New GiaoVienDAO
        dao.XoaGV(dto)
    End Sub

    ''' <summary>
    ''' Xóa tất cả những ràng buộc của 1 giáo viên
    ''' </summary>
    ''' <param name="dto">Mã giáo viên</param>
    ''' <remarks></remarks>
    Public Sub XoaRBGV(ByVal dto As GiaoVienDTO)
        Dim dao As New GiaoVienDAO
        dao.XoaRBGV(dto)
    End Sub

    ''' <summary>
    ''' Xóa tất cả phân công của 1 giáo viên
    ''' </summary>
    ''' <param name="dto">Mã giáo viên</param>
    ''' <remarks></remarks>
    Public Sub XoaPC(ByVal dto As GiaoVienDTO)
        Dim dao As New GiaoVienDAO
        dao.XoaPC(dto)
    End Sub

    ''' <summary>
    ''' Lấy lịch giáo viên
    ''' </summary>
    ''' <param name="dto"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function LichGV(ByVal dto As GiaoVienDTO) As DataTable
        Dim dt As New DataTable
        Dim dao As New GiaoVienDAO
        dt = dao.LichGV(dto)
        Return dt
    End Function
    ''' <summary>
    ''' Lấy danh sách tất cả giáo viên
    ''' </summary>
    Public Function LayDSGiaoVien() As DataTable
        Dim dt As New DataTable
        Dim dao As New GiaoVienDAO
        dt = dao.LayDSGiaoVien()
        Return dt
    End Function

    ''' <summary>
    ''' Lấy mã giáo viên của 1 giáo viên
    ''' </summary>
    Public Function LayMaGiaoVien(ByVal dto As GiaoVienDTO) As String
        Dim dao As New GiaoVienDAO
        Return dao.LayMaGiaoVien(dto)
    End Function

    ''' <summary>
    ''' Lấy địa chỉ của 1 giáo viên
    ''' </summary>
    Public Function LayDCGiaoVien(ByVal dto As GiaoVienDTO) As String
        Dim dao As New GiaoVienDAO
        Return dao.LayDCGiaoVien(dto)
    End Function

    ''' <summary>
    ''' Lấy số điện thoại của 1 giáo viên
    ''' </summary>
    Public Function LaySDTGiaoVien(ByVal dto As GiaoVienDTO) As String
        Dim dao As New GiaoVienDAO
        Return dao.LaySDTGiaoVien(dto)
    End Function

    ''' <summary>
    ''' Lấy danh sách các môn học do 1 giáo viên phụ trách
    ''' </summary>
    Public Function DSMonHocCuaGV(ByVal dto As GiaoVienDTO) As List(Of String)
        Dim ds As New List(Of String)
        Dim dao As New GiaoVienDAO
        ds = dao.DSMonHocCuaGV(dto)
        Return ds
    End Function

    Public Function TaoMaGV() As String
        Dim dao As New GiaoVienDAO
        Return dao.TaoMaGV
    End Function
End Class
